PC Plus SuperCD 58/supercd58.iso/Toma nota/Control-Ges/SQL/6.5/EXPR.SQL

Text File | 2001-06-26 | 13.2 KB | 461 lines

SET NOCOUNT ON
GO

PRINT 'Actualizando campo CLAV_1 del fichero ALBARAN'
ALTER TABLE ALBARAN DISABLE TRIGGER ALL
GO
UPDATE ALBARAN SET CLAV_1= CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ALBARAN ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CLIENTE del fichero ALBARAN'
ALTER TABLE ALBARAN DISABLE TRIGGER ALL
GO
UPDATE ALBARAN SET IND_CLIENTE= CONVERT(char(10),CLIENTE)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ALBARAN ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_FECHA del fichero ALBARAN'
ALTER TABLE ALBARAN DISABLE TRIGGER ALL
GO
UPDATE ALBARAN SET IND_FECHA= CONVERT(char(8),FECHA,112)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ALBARAN ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_REFER del fichero ALBARAN'
ALTER TABLE ALBARAN DISABLE TRIGGER ALL
GO
UPDATE ALBARAN SET IND_REFER= CONVERT(char(20),REFER)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ALBARAN ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero ALBPRO'
ALTER TABLE ALBPRO DISABLE TRIGGER ALL
GO
UPDATE ALBPRO SET CLAV_1= CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ALBPRO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_FECHA del fichero ALBPRO'
ALTER TABLE ALBPRO DISABLE TRIGGER ALL
GO
UPDATE ALBPRO SET IND_FECHA= CONVERT(char(8),FECHA,112)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ALBPRO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_PROV del fichero ALBPRO'
ALTER TABLE ALBPRO DISABLE TRIGGER ALL
GO
UPDATE ALBPRO SET IND_PROV= CONVERT(char(10),PROVEEDO)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ALBPRO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_REFER del fichero ALBPRO'
ALTER TABLE ALBPRO DISABLE TRIGGER ALL
GO
UPDATE ALBPRO SET IND_REFER= CONVERT(char(20),REFER)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ALBPRO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CODIGO del fichero ARTICULO'
ALTER TABLE ARTICULO DISABLE TRIGGER ALL
GO
UPDATE ARTICULO SET IND_CODIGO= CONVERT(char(16),RAIZ)+CONVERT(char(2),TALLA)+CONVERT(char(2),COLOR)
GO
ALTER TABLE ARTICULO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_DESCRIP del fichero ARTICULO'
ALTER TABLE ARTICULO DISABLE TRIGGER ALL
GO
UPDATE ARTICULO SET IND_DESCRIP= CONVERT(char(20),DESCRIP)+CONVERT(char(16),RAIZ)+CONVERT(char(2),TALLA)+CONVERT(char(2),COLOR)
GO
ALTER TABLE ARTICULO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero CAMBIOS'
ALTER TABLE CAMBIOS DISABLE TRIGGER ALL
GO
UPDATE CAMBIOS SET CLAV_1= CONVERT(char(10),CODIGO)+CONVERT(char(8),FECHA,112)
GO
ALTER TABLE CAMBIOS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_ANEXO del fichero CLIENTES'
ALTER TABLE CLIENTES DISABLE TRIGGER ALL
GO
UPDATE CLIENTES SET IND_ANEXO= CONVERT(char(40),ANEXO)+CONVERT(char(10),CODIGO)
GO
ALTER TABLE CLIENTES ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CIF del fichero CLIENTES'
ALTER TABLE CLIENTES DISABLE TRIGGER ALL
GO
UPDATE CLIENTES SET IND_CIF= CONVERT(char(25),CIF)+CONVERT(char(10),CODIGO)
GO
ALTER TABLE CLIENTES ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_NOMBRE del fichero CLIENTES'
ALTER TABLE CLIENTES DISABLE TRIGGER ALL
GO
UPDATE CLIENTES SET IND_NOMBRE= CONVERT(char(40),NOMBRE)+CONVERT(char(10),CODIGO)
GO
ALTER TABLE CLIENTES ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero COBROS'
ALTER TABLE COBROS DISABLE TRIGGER ALL
GO
UPDATE COBROS SET CLAV_1= STR(NUMERO,10)
GO
ALTER TABLE COBROS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CLIENTE del fichero COBROS'
ALTER TABLE COBROS DISABLE TRIGGER ALL
GO
UPDATE COBROS SET IND_CLIENTE= CONVERT(char(10),CLIENTE)+STR(NUMERO,10)
GO
ALTER TABLE COBROS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero COMPRA'
ALTER TABLE COMPRA DISABLE TRIGGER ALL
GO
UPDATE COMPRA SET CLAV_1= CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE COMPRA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_FECHA del fichero COMPRA'
ALTER TABLE COMPRA DISABLE TRIGGER ALL
GO
UPDATE COMPRA SET IND_FECHA= CONVERT(char(8),FECHA,112)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE COMPRA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_PROV del fichero COMPRA'
ALTER TABLE COMPRA DISABLE TRIGGER ALL
GO
UPDATE COMPRA SET IND_PROV= CONVERT(char(10),CLIENTE)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE COMPRA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_REFER del fichero COMPRA'
ALTER TABLE COMPRA DISABLE TRIGGER ALL
GO
UPDATE COMPRA SET IND_REFER= CONVERT(char(20),REFER)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE COMPRA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero CUADRE'
ALTER TABLE CUADRE DISABLE TRIGGER ALL
GO
UPDATE CUADRE SET CLAV_1= STR(NUMERO,10)
GO
ALTER TABLE CUADRE ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CLAVE del fichero DERECHOS'
ALTER TABLE DERECHOS DISABLE TRIGGER ALL
GO
UPDATE DERECHOS SET IND_CLAVE= CONVERT(char(3),USUARIO)+CONVERT(char(10),PROGRAMA)
GO
ALTER TABLE DERECHOS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero ENTRADA'
ALTER TABLE ENTRADA DISABLE TRIGGER ALL
GO
UPDATE ENTRADA SET CLAV_1= CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ENTRADA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_FECHA del fichero ENTRADA'
ALTER TABLE ENTRADA DISABLE TRIGGER ALL
GO
UPDATE ENTRADA SET IND_FECHA= CONVERT(char(8),FECHA,112)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ENTRADA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_PROV del fichero ENTRADA'
ALTER TABLE ENTRADA DISABLE TRIGGER ALL
GO
UPDATE ENTRADA SET IND_PROV= CONVERT(char(10),CLIENTE)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ENTRADA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_REFER del fichero ENTRADA'
ALTER TABLE ENTRADA DISABLE TRIGGER ALL
GO
UPDATE ENTRADA SET IND_REFER= CONVERT(char(20),REFER)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE ENTRADA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero EXIST'
ALTER TABLE EXIST DISABLE TRIGGER ALL
GO
UPDATE EXIST SET CLAV_1= CONVERT(char(16),RAIZ)+CONVERT(char(2),TALLA)+CONVERT(char(2),COLOR)+CONVERT(char(8),ALMACEN)
GO
ALTER TABLE EXIST ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero FACTURA'
ALTER TABLE FACTURA DISABLE TRIGGER ALL
GO
UPDATE FACTURA SET CLAV_1= CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE FACTURA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CLIENTE del fichero FACTURA'
ALTER TABLE FACTURA DISABLE TRIGGER ALL
GO
UPDATE FACTURA SET IND_CLIENTE= CONVERT(char(10),CLIENTE)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE FACTURA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_FECHA del fichero FACTURA'
ALTER TABLE FACTURA DISABLE TRIGGER ALL
GO
UPDATE FACTURA SET IND_FECHA= CONVERT(char(8),FECHA,112)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE FACTURA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_REFER del fichero FACTURA'
ALTER TABLE FACTURA DISABLE TRIGGER ALL
GO
UPDATE FACTURA SET IND_REFER= CONVERT(char(20),REFER)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE FACTURA ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero LINHIST2'
ALTER TABLE LINHIST2 DISABLE TRIGGER ALL
GO
UPDATE LINHIST2 SET CLAV_1= STR(NUMERO,10)+CONVERT(char(16),RAIZ)+CONVERT(char(2),TALLA)+CONVERT(char(2),COLOR)+CONVERT(char(10),ALMACEN)
GO
ALTER TABLE LINHIST2 ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero LOTES'
ALTER TABLE LOTES DISABLE TRIGGER ALL
GO
UPDATE LOTES SET CLAV_1= CONVERT(char(16),RAIZ)+CONVERT(char(2),TALLA)+CONVERT(char(2),COLOR)+CONVERT(char(20),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE LOTES ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero MENUCMD'
ALTER TABLE MENUCMD DISABLE TRIGGER ALL
GO
UPDATE MENUCMD SET CLAV_1= STR(NUMERO,10)
GO
ALTER TABLE MENUCMD ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_CLI del fichero MENUCMD'
ALTER TABLE MENUCMD DISABLE TRIGGER ALL
GO
UPDATE MENUCMD SET CLAV_CLI= CONVERT(char(10),CLIENTE)+CONVERT(char(8),FECHA,112)
GO
ALTER TABLE MENUCMD ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero MENUNEC'
ALTER TABLE MENUNEC DISABLE TRIGGER ALL
GO
UPDATE MENUNEC SET CLAV_1= STR(NUMERO,10)
GO
ALTER TABLE MENUNEC ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero MENUOF'
ALTER TABLE MENUOF DISABLE TRIGGER ALL
GO
UPDATE MENUOF SET CLAV_1= STR(NUMERO,10)
GO
ALTER TABLE MENUOF ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero MOVIMI'
ALTER TABLE MOVIMI DISABLE TRIGGER ALL
GO
UPDATE MOVIMI SET CLAV_1= STR(NUMERO,10)
GO
ALTER TABLE MOVIMI ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero OFERTAS'
ALTER TABLE OFERTAS DISABLE TRIGGER ALL
GO
UPDATE OFERTAS SET CLAV_1= CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE OFERTAS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CLIENTE del fichero OFERTAS'
ALTER TABLE OFERTAS DISABLE TRIGGER ALL
GO
UPDATE OFERTAS SET IND_CLIENTE= CONVERT(char(10),CLIENTE)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE OFERTAS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_FECHA del fichero OFERTAS'
ALTER TABLE OFERTAS DISABLE TRIGGER ALL
GO
UPDATE OFERTAS SET IND_FECHA= CONVERT(char(8),FECHA,112)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE OFERTAS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_REFER del fichero OFERTAS'
ALTER TABLE OFERTAS DISABLE TRIGGER ALL
GO
UPDATE OFERTAS SET IND_REFER= CONVERT(char(20),REFER)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE OFERTAS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero PAGOS'
ALTER TABLE PAGOS DISABLE TRIGGER ALL
GO
UPDATE PAGOS SET CLAV_1= STR(NUMERO,10)
GO
ALTER TABLE PAGOS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CLIENTE del fichero PAGOS'
ALTER TABLE PAGOS DISABLE TRIGGER ALL
GO
UPDATE PAGOS SET IND_CLIENTE= CONVERT(char(10),CLIENTE)+STR(NUMERO,10)
GO
ALTER TABLE PAGOS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_FAC del fichero PAGOS'
ALTER TABLE PAGOS DISABLE TRIGGER ALL
GO
UPDATE PAGOS SET IND_FAC= CONVERT(char(2),SERIE)+STR(FACTURA,10)+STR(NUMERO,10)
GO
ALTER TABLE PAGOS ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero PEDIDO'
ALTER TABLE PEDIDO DISABLE TRIGGER ALL
GO
UPDATE PEDIDO SET CLAV_1= CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE PEDIDO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CLIENTE del fichero PEDIDO'
ALTER TABLE PEDIDO DISABLE TRIGGER ALL
GO
UPDATE PEDIDO SET IND_CLIENTE= CONVERT(char(10),CLIENTE)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE PEDIDO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_FECHA del fichero PEDIDO'
ALTER TABLE PEDIDO DISABLE TRIGGER ALL
GO
UPDATE PEDIDO SET IND_FECHA= CONVERT(char(8),FECHA,112)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE PEDIDO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_REFER del fichero PEDIDO'
ALTER TABLE PEDIDO DISABLE TRIGGER ALL
GO
UPDATE PEDIDO SET IND_REFER= CONVERT(char(20),REFER)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE PEDIDO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero PLANTILL'
ALTER TABLE PLANTILL DISABLE TRIGGER ALL
GO
UPDATE PLANTILL SET CLAV_1= CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE PLANTILL ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CLIENTE del fichero PLANTILL'
ALTER TABLE PLANTILL DISABLE TRIGGER ALL
GO
UPDATE PLANTILL SET IND_CLIENTE= CONVERT(char(10),CLIENTE)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE PLANTILL ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_FECHA del fichero PLANTILL'
ALTER TABLE PLANTILL DISABLE TRIGGER ALL
GO
UPDATE PLANTILL SET IND_FECHA= CONVERT(char(8),FECHA,112)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE PLANTILL ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_REFER del fichero PLANTILL'
ALTER TABLE PLANTILL DISABLE TRIGGER ALL
GO
UPDATE PLANTILL SET IND_REFER= CONVERT(char(20),REFER)+CONVERT(char(2),SERIE)+STR(NUMERO,10)
GO
ALTER TABLE PLANTILL ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_ANEXO del fichero PROVEEDO'
ALTER TABLE PROVEEDO DISABLE TRIGGER ALL
GO
UPDATE PROVEEDO SET IND_ANEXO= CONVERT(char(40),ANEXO)+CONVERT(char(10),CODIGO)
GO
ALTER TABLE PROVEEDO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_CIF del fichero PROVEEDO'
ALTER TABLE PROVEEDO DISABLE TRIGGER ALL
GO
UPDATE PROVEEDO SET IND_CIF= CONVERT(char(25),CIF)+CONVERT(char(10),CODIGO)
GO
ALTER TABLE PROVEEDO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo IND_NOMBRE del fichero PROVEEDO'
ALTER TABLE PROVEEDO DISABLE TRIGGER ALL
GO
UPDATE PROVEEDO SET IND_NOMBRE= CONVERT(char(40),NOMBRE)+CONVERT(char(10),CODIGO)
GO
ALTER TABLE PROVEEDO ENABLE TRIGGER ALL
GO

PRINT 'Actualizando campo CLAV_1 del fichero SALIDAS'
ALTER TABLE SALIDAS DISABLE TRIGGER ALL
GO
UPDATE SALIDAS SET CLAV_1= STR(NUMERO,10)
GO
ALTER TABLE SALIDAS ENABLE TRIGGER ALL
GO

PRINT 'FIN DEL PROCESO'